##################################################################
# This file imports the FJC/Bloomberg lawsuit data, as well
# as the facility dataset to create the spreadsheet at the
# heart of the book, fjcandprivatization.
##################################################################
harris <- read.dta13("raw-data/HBPM-AEJ-fips-unlocked.dta")%>%
mutate(fips = str_pad(fips,width=5,side="left",pad=0),
sum_valueharris = exp(log_sum_value),
sum_valueharris = if_else(sum_valueharris==1, 0, sum_valueharris),
sum_itemsharris = exp(log_sum_items),
sum_itemsharris = if_else(sum_itemsharris==1, 0, sum_itemsharris))
#load packages
library(tidyverse)
library(readxl)
##################################################################
# This file imports the FJC/Bloomberg lawsuit data, as well
# as the facility dataset to create the spreadsheet at the
# heart of the book, fjcandprivatization.
##################################################################
harris <- read.dta13("raw-data/HBPM-AEJ-fips-unlocked.dta")%>%
mutate(fips = str_pad(fips,width=5,side="left",pad=0),
sum_valueharris = exp(log_sum_value),
sum_valueharris = if_else(sum_valueharris==1, 0, sum_valueharris),
sum_itemsharris = exp(log_sum_items),
sum_itemsharris = if_else(sum_itemsharris==1, 0, sum_itemsharris))
library(readstata13)
##################################################################
# This file imports the FJC/Bloomberg lawsuit data, as well
# as the facility dataset to create the spreadsheet at the
# heart of the book, fjcandprivatization.
##################################################################
harris <- read.dta13("raw-data/HBPM-AEJ-fips-unlocked.dta")%>%
mutate(fips = str_pad(fips,width=5,side="left",pad=0),
sum_valueharris = exp(log_sum_value),
sum_valueharris = if_else(sum_valueharris==1, 0, sum_valueharris),
sum_itemsharris = exp(log_sum_items),
sum_itemsharris = if_else(sum_itemsharris==1, 0, sum_itemsharris))
